#!/usr/bin/env tclsh


set f [open new.txt w+]; # 获得写文件句柄 这种方法将会覆盖文件原有内容
puts $f "I am writing context to new.txt" ;#向文件new.txt写入内容
puts $f "ok " 
close $f

set f [open new.txt a]; # 获得写文件句柄 a 一定要文件已经存在，追加内容
puts $f "Add more context!" ;#向文件new.txt写入内容
close $f

set f [open new2.txt a+]; # 获得写文件句柄 a 追加内容,文件不存在则先创建文件后追加内容
puts $f "Add more context!" ;#向文件new.txt写入内容
close $f



